home *** CD-ROM | disk | FTP | other *** search
/ Apple Reference & Presen…tion Library 4 (Reseller) / Apple Ref. & Pres. Lib.v4.0.iso / 4-Demos / Third Party Demos / Information Management / MicroPlanner / card_4630.txt < prev    next >
Text File  |  1990-03-22  |  4KB  |  194 lines
  1. -- card: 4630 from stack: in
  2. -- bmap block id: 24073
  3. -- flags: 0000
  4. -- background id: 2600
  5. -- name: 
  6. ----- HyperTalk script -----
  7. on openCard
  8.   set the visible of card field 1 to false
  9.   put 0 into card field 1
  10. end openCard
  11. on idle
  12.   get the value of card field 1
  13.   if It>90 then
  14.     visual effect dissolve
  15.     go first card
  16.   else
  17.     add 1 to It
  18.     put It into card field 1
  19.   end if
  20. end idle
  21.  
  22.  
  23.  
  24. -- part 1 (button)
  25. -- low flags: 00
  26. -- high flags: 0000
  27. -- rect: left=35 top=12 right=96 bottom=202
  28. -- title width / last selected line: 0
  29. -- icon id / first selected line: 0 / 0
  30. -- text alignment: 1
  31. -- font id: 0
  32. -- text size: 12
  33. -- style flags: 0
  34. -- line height: 16
  35. -- part name: wottisit?
  36. ----- HyperTalk script -----
  37. on mouseUp
  38.   visual effect zoom open
  39.   go card id 14547
  40. end mouseUp
  41.  
  42.  
  43.  
  44. -- part 2 (button)
  45. -- low flags: 00
  46. -- high flags: 0000
  47. -- rect: left=4 top=115 right=201 bottom=183
  48. -- title width / last selected line: 0
  49. -- icon id / first selected line: 0 / 0
  50. -- text alignment: 1
  51. -- font id: 0
  52. -- text size: 12
  53. -- style flags: 0
  54. -- line height: 16
  55. -- part name: how-work?
  56. ----- HyperTalk script -----
  57. on mouseUp
  58.   push card
  59.   push card id 11657
  60.   visual effect zoom open
  61.   go card id 10691
  62. end mouseUp
  63.  
  64.  
  65.  
  66. -- part 3 (button)
  67. -- low flags: 00
  68. -- high flags: 0000
  69. -- rect: left=41 top=227 right=300 bottom=161
  70. -- title width / last selected line: 0
  71. -- icon id / first selected line: 0 / 0
  72. -- text alignment: 1
  73. -- font id: 0
  74. -- text size: 12
  75. -- style flags: 0
  76. -- line height: 16
  77. -- part name: needit?
  78. ----- HyperTalk script -----
  79. on mouseUp
  80.   visual effect zoom open
  81.   go card id 7977
  82. end mouseUp
  83.  
  84.  
  85.  
  86. -- part 4 (button)
  87. -- low flags: 00
  88. -- high flags: 0000
  89. -- rect: left=280 top=2 right=74 bottom=386
  90. -- title width / last selected line: 0
  91. -- icon id / first selected line: 0 / 0
  92. -- text alignment: 1
  93. -- font id: 0
  94. -- text size: 12
  95. -- style flags: 0
  96. -- line height: 16
  97. -- part name: who?
  98. ----- HyperTalk script -----
  99. on mouseUp
  100.   push card
  101.   visual effect iris open
  102.   go card id 19954
  103. end mouseUp
  104.  
  105.  
  106.  
  107. -- part 5 (button)
  108. -- low flags: 00
  109. -- high flags: 0000
  110. -- rect: left=392 top=59 right=139 bottom=512
  111. -- title width / last selected line: 0
  112. -- icon id / first selected line: 0 / 0
  113. -- text alignment: 1
  114. -- font id: 0
  115. -- text size: 12
  116. -- style flags: 0
  117. -- line height: 16
  118. -- part name: Specs?
  119. ----- HyperTalk script -----
  120. on mouseUp
  121.   visual effect zoom open
  122.   go card ID 3109
  123. end mouseUp
  124.  
  125.  
  126.  
  127. -- part 8 (button)
  128. -- low flags: 00
  129. -- high flags: 0000
  130. -- rect: left=389 top=207 right=277 bottom=505
  131. -- title width / last selected line: 0
  132. -- icon id / first selected line: 0 / 0
  133. -- text alignment: 1
  134. -- font id: 0
  135. -- text size: 12
  136. -- style flags: 0
  137. -- line height: 16
  138. -- part name: 
  139. ----- HyperTalk script -----
  140. on mouseUp
  141.   set the cursor to 4
  142.   visual effect dissolve
  143.   go card id 25311
  144.   wait for 20 seconds
  145.   visual effect dissolve
  146.   go next card
  147.   wait for 1 seconds
  148.   doMenu Quit Hypercard
  149. end mouseUp
  150.  
  151.  
  152.  
  153. -- part 9 (button)
  154. -- low flags: 00
  155. -- high flags: 0000
  156. -- rect: left=228 top=85 right=189 bottom=367
  157. -- title width / last selected line: 0
  158. -- icon id / first selected line: 0 / 0
  159. -- text alignment: 1
  160. -- font id: 0
  161. -- text size: 12
  162. -- style flags: 0
  163. -- line height: 16
  164. -- part name: 
  165. ----- HyperTalk script -----
  166. on mouseEnter
  167.   play harpsichord 76
  168. end mouseEnter
  169. on mouseUp
  170.   push card
  171.   go card id 3688
  172.   wait for 5 seconds
  173.   pop card
  174. end mouseUp
  175.  
  176.  
  177.  
  178. -- part 11 (field)
  179. -- low flags: 80
  180. -- high flags: 0001
  181. -- rect: left=396 top=21 right=38 bottom=505
  182. -- title width / last selected line: 0
  183. -- icon id / first selected line: 0 / 0
  184. -- text alignment: 0
  185. -- font id: 3
  186. -- text size: 12
  187. -- style flags: 0
  188. -- line height: 16
  189. -- part name: 
  190.  
  191.  
  192. -- part contents for card part 11
  193. ----- text -----
  194. 14